
/FILENAME,E411
/TITLE,TOWER
*CREATE,TOWER,MAC		!ļTOWER
!*****************************
!*********βλmm************
*SET,ta_R,3000			!뾶
*SET,outlet_R,1000			!ڰ뾶
*SET,outlet_h,5452			!ڸ߶
*SET,low_h,16000			!Ͳ߶
*SET,up_h,5000			!Ͳ߶
*SET,qun_h,2650			!ȹ߶
*SET,low_t,32			!Ͳ
*SET,up_t,28			!Ͳ
!*****************************
*SET,omega,1.5			!缤ٶ
!*********ǰ********************** 
/PREP7
!********嵥ԪͲϳ********
ET,1,SHELL63			!1ŵԪ
ET,2,SOLID45			!2ŵԪ
MP,EX,1,1.824859E5			!1Ųϵģ
MP,PRXY,1,0.3			!1Ųϲɱ
MP,DENS,1,7.85E-6			!1Ųܶ
MP,EX,2,420			!2Ųϵģ
MP,PRXY,2,0.3			!2Ųϲɱ
MP,DENS,2,0.8E-6			!2Ųܶ
R,1,low_t,low_t,low_t,low_t		!1ʵ
R,2,up_t,up_t,up_t,up_t		!2ʵ 
!*************νģ****************
!***********ʵ彨ģ**************
/PNUM,KP,1			!򿪹ؼʾ
/PNUM,LINE,1			!߱ʾ
/PNUM,AREA,1			!ʾ
!***********Ĺؼ***************
K,1,outlet_R			!ڵ1Źؼ,(outlet_R,0,0)
K,2,ta_R,outlet_h			!2Źؼ,(ta_R,outlet_h,0)
K,3,ta_R,outlet_h+low_h		!3Źؼ,(ta_R,outlet_h+low_h0)
K,4,ta_R,outlet_h+low_h+up_h	!4Źؼ,(ta_R,outlet_h+low_h+up_h0)
K,5,ta_R,outlet_h-qun_h		!5Źؼ,(ta_R,outlet_h-qun_h0)
K,6,,outlet_h+low_h+up_h		!6Źؼ,(0,outlet_h+low_h+up_h0)
K,7,,outlet_h+low_h+up_h+ta_R	!7Źؼ,(0,outlet_h+low_h+up_h+ta_R0)
K,1000				!1000Źؼ,(0,0,0)
!***************************
L,1,2				!1,2ؼ1
L,2,3				!2,3ؼ2
L,3,4				!3,4ؼ3
L,2,5				!2,5ؼ4
LARC,4,7,6,ta_R			!ta_RΪ뾶4,7ŹؼΪյ㽨,Բλ6ŵһ
!***********ת**************
AROTAT,1,2,3,5,,,1000,6,,		!10006ŵΪ߽1,2,3,5תΪ	
AROTAT,4,,,,,,1000,6,,		!10006ŵΪ߽4תΪ
!*****************************
LSEL,S,LOC,Y,0			!YΪ0ѡȡ
LSEL,A,LOC,Y,outlet_h-qun_h		!YΪoutlet_h-qun_hѡ
LSEL,A,LOC,Y,outlet_h		!YΪoutlet_hѡ
LSEL,A,LOC,Y,outlet_h+low_h		!YΪoutlet_h+low_hѡ
LSEL,A,LOC,Y,outlet_h+low_h+up_h	!YΪoutlet_h+low_h+up_hѡ
LESIZE,ALL,,,12			!ѡߵĻַΪ12
CSYS,5				!лYΪתϵ
LSEL,S,LOC,X,outlet_R+1,ta_R-1	!Xѡڡoutlet_R+1,ta_R-1Χڵ
LSEL,A,LOC,Z,outlet_h+low_h+1,outlet_h+low_h+up_h-1		!ѡ
LSEL,U,LOC,Z,outlet_h+low_h+up_h,outlet_h+low_h+up_h+ta_R	!ѡ
LESIZE,ALL,,,12			!ѡߵĻַΪ12
LSEL,S,LOC,Z,outlet_h-qun_h+1,outlet_h-1			!ѡ
LESIZE,ALL,,,8			!ѡߵĻַΪ8
LSEL,S,LOC,Z,outlet_h+1,outlet_h+low_h-1			!ѡ
LESIZE,ALL,,,40			!ѡߵĻַΪ40
ALLS				!ѡеԪ
ASEL,S,LOC,Z,0,low_h		!ѡz귶Χ0low_h֮
REAL,1				!ֵָԪʵΪ1
MSHKEY,1				!ָԪַʽΪӳ
MSHAPE,0,3D			!ָԪ״2DΪ4Σ3DΪ塣
AMESH,ALL				!ѡе
ASEL,S,LOC,Z,low_h+outlet_h,low_h+up_h+qun_h+outlet_h		!ѡ
REAL,2				!ֵָԪʵΪ2
AMESH,ALL				!ѡе
ALLS				!ѡеԪ
NUMMRG,ALL			!ϲغԪ
NUMCMP,ALL			!ѹԪصı
!************ɽ̿Ԫ*************
CSYS				!صϵ
K,1001,,outlet_h,,			!1001Źؼ,Ϊ(0,outlet_h,0)
A,1001,13,17			!1001,13,17Źؼ
A,1001,17,2			!1001,17,2Źؼ
A,1001,2,9			!1001,2,9Źؼ
A,1001,9,13			!1001,9,13Źؼ
ASEL,S,LOC,Y,outlet_h		!ѡ
AMESH,ALL				!ѡе
!*********Ϊ********
TYPE,2				!õԪΪ2ŵԪ
MAT,2				!òΪ2Ų
EXTOPT,ESIZE,40			!40
VEXT,ALL,,,,low_h			!X,Y,Z쳤0,low_h,0
EXTOPT,ESIZE,12			!12
EXTOPT,ACLEAR,1			!ȥ
ASEL,S,LOC,Y,outlet_h		!ѡ
VEXT,ALL,,,,-outlet_h,,1/3,,1/3	!X,Y,Z쳤0,-outlet_h,0,1/3,0,1/3
ALLS				!ѡеԪ
NUMMRG,ALL			!ϲغԪ
NUMCMP,ALL			!ѹԪصı
ASEL,S,AREA,,17,20,1		!1ѡ1720
ASEL,INVE				!ѡ
AREVERSE,ALL			!תķ
!**************ʩԼ***************
NSEL,S,LOC,Y,outlet_h-qun_h		!ѡȹ֧ڵ
D,ALL,UX				!ԼѡڵXɶ
D,ALL,UY				!ԼѡڵYɶ
D,ALL,UZ				!ԼѡڵZɶ
ALLS				!ѡеԪ
EPLOT				!ʾԪ
/VIEW,1,1,1,1			!ͼ
SAVE,MODEL,DB,,MODEL		!ģ
*END				!ļ
TOWER				!кģ
FINI				!˳ǰ
!******************************
/SOLU
ANTYPE,2				!÷Ϊģ̬
MODOPT,SUBSP,10			!ģ̬Ϊsubspace
MXPAND,10,,,1			!ģ̬չ10
LUMPM,ON				!
ACEL,0,9.8,0			!ٶ
ALLS				!ѡеԪ
SOLVE				!
SAVE				!
FINI				!˳SOLU
!*******************************
/POST1
FILE,'E411','rst'			!ļ
SET,LIST				!гƵ
SET,1,1				!ȡ1
PLDI				!ʾ1ױ
ANMODE,10,0.5,,0			!1׶
SET,1,3				!ȡ2
PLDI				!ʾ2ױ
ANMODE,10,0.5,,0			!2׶
SET,1,5				!ȡ3
PLDI				!ʾ3ױ
ANMODE,10,0.5,,0			!3׶
SET,1,7				!ȡ5
PLDI				!ʾ5ױ
ANMODE,10,0.5,,0			!5׶









